
set more off
ereturn clear
estimates clear 
eststo clear


	foreach model in Baselineprice Price_PVirrad Price_angle early_adopters Producing Importing Netimport ///
LaggedIV NSincome Heterotemp Temp_ddsq Tempghi Hour_income OC Weekendinc {


	
	forval x= 1(1)100 {
	
		
		estimates use Results/Andrea/`model'_`x'
		eststo `model'`x'
	
	
		parmest, norestore level(90)
		keep if strpos(parm, "price" )> 0  | strpos(parm, "inc" )  >0 | strpos(parm, "peakoff" )  >0 ///
		| strpos(parm, "ocp" )  >0  | strpos(parm, "virt" )  >0 | strpos(parm, "early" )  >0
	
		
		keep parm est
		
		gen obs = e(N)
		gen dof = e(df_rn)
		gen N_clust = e(N_clust)
		gen bootind = `x'

save Results/Andrea/`model'bootres`x'.dta, replace
		estimates drop `model'`x'
	}

use Results/Andrea/`model'bootres1.dta, clear 
	
	

	forval x = 2(1)100 {

	append using Results/Andrea/`model'bootres`x'.dta
	
capture	erase Results/Andrea/`model'bootres`x'.dta
	}

capture erase Results/Andrea/`model'bootres1.dta
	
save Results/Andrea/`model'bootstrapresults.dta, replace
	}
	
	
